*--------------------------------------------------------------------STANDARDIZE_ADDRESSES.DO---------------------------------------------------------------------------------
*This script standardizes addresses in the MLS and tax roll data for the city of Ann Arbor to improve subsequent matching.
*All of the associated lines are generated from painstakingly iterating over matching standardized addresses in Excel (using fuzzy matching) and Arc GIS (using geocoding). 
*Sebastien Bradley
*11/27/13

version 12
clear all
capture cd "C:/Users/Sebastien/Documents/Research/PropertyTaxes/Ann_Arbor/MLS"
capture log close
log using standardize_addresses_results.txt, text replace
set more off


*TAX ROLL DATA
insheet using ../AA_tax_roll3-7-10.txt, clear tab names
rename par_parcelnumber pid
keep pid-mst_propaddressstreet
sort pid
drop if pid==pid[_n-1]										/*Drop observations w/ missing parcel ID*/
merge 1:m pid using ../AA_tax_roll.dta, keep(match) nogen
sort pid year
drop if pid==pid[_n-1]										/*Preserve single observation per parcel*/

capture gen pid_address = propaddresscombined
replace pid_address = upper(trim(itrim(pid_address)))
capture gen pid_addressstreet = mst_propaddressstreet
replace pid_addressstreet = upper(trim(itrim(pid_addressstreet)))
local address = "pid_address";


*Add city and zip code information to property addresses from owner information, where possible:
#delimit ;
gen city = "ANN ARBOR";
gen state = "MI";
replace ownercity = upper(ownercity);
gen zip = substr(ownerzipcode,1,5) if `address'==ownerstreetaddress;

*Many owner addresses have missing street types, so match on street number and name;
replace zip = substr(ownerzipcode,1,5) if `address'~=ownerstreetaddress & ownercity=="ANN ARBOR" & 
	word(`address',1)==word(ownerstreetaddress,1) & word(`address',2)==word(ownerstreetaddress,2);
*In fact, visual inspection shows that matching only on street number is highly accurate;
replace zip = substr(ownerzipcode,1,5) if `address'~=ownerstreetaddress & ownercity=="ANN ARBOR" & 
	word(`address',1)==word(ownerstreetaddress,1);
replace zip = "" if `address'=="5 ROCKLAND CT";
*In an additional large number of cases, owner addresses have neighboring street numbers (often times
*with a single owner for many properties).  Assuming zip codes do not separate properties located on the
*same street;
replace zip = substr(ownerzipcode,1,5) if `address'~=ownerstreetaddress & ownercity=="ANN ARBOR" & 
	word(`address',2)==word(ownerstreetaddress,2) & word(`address',3)==word(ownerstreetaddress,3);
	
*Repeat for properties with missing owner city and state information but where street addresses match;
replace zip = substr(ownerzipcode,1,5) if ownercity=="" & ownerstate=="" & zip=="" & ownerzipcode~="" & 
	word(`address',1)==word(ownerstreetaddress,1) & word(`address',2)==word(ownerstreetaddress,2);
*Matching only on street number is valid;
replace zip = substr(ownerzipcode,1,5) if ownercity=="" & ownerstate=="" & zip=="" & ownerzipcode~="" & 
	word(`address',1)==word(ownerstreetaddress,1);
*Neighboring owners;
replace zip = substr(ownerzipcode,1,5) if ownercity=="" & ownerstate=="" & zip=="" & ownerzipcode~="" & 
	word(`address',2)==word(ownerstreetaddress,2) & word(`address',3)==word(ownerstreetaddress,3);	
destring zip, replace;	

	
*Miscellaneous;
foreach address in pid_address pid_addressstreet {;
  drop if regexm(upper(`address'), "VACANT")==1;										/*Vacant properties*/
  replace `address' = subinstr(`address',".","",.);
  
  *replace `address' = subinstr(`address'," AV"," AVE",1)  if (regexm(`address'," AV$") | regexm(`address'," AV [#|1-9]"))					/*Address_Corrections_do.xls*/
  *replace `address' = subinstr(`address'," AVENUE"," AVE",1)  if (regexm(`address'," AVENUE$") | regexm(`address'," AVENUE [#|1-9]"))
  *replace `address' = subinstr(`address'," BL"," BLV",1)  if (regexm(`address'," BL$") | regexm(`address'," BL [#|1-9]"))
  *replace `address' = subinstr(`address'," BLVD"," BLV",1)  if (regexm(`address'," BLVD$") | regexm(`address'," BLVD [#|1-9]"))
  *replace `address' = subinstr(`address'," BOULEVARD"," BLV",1)  if (regexm(`address'," BOULEVARD$") | regexm(`address'," BOULEVARD [#|1-9]"))
  replace `address' = subinstr(`address'," CIRCLE"," CIR",1)  if (regexm(`address'," CIRCLE$") | regexm(`address'," CIRCLE [#|1-9]"))
  replace `address' = subinstr(`address'," COURT"," CT",1)  if (regexm(`address'," COURT$") | regexm(`address'," COURT [#|1-9]"))
  replace `address' = subinstr(`address'," CR"," CIR",1)  if (regexm(`address'," CR$") | regexm(`address'," CR [#|1-9]"))
  replace `address' = subinstr(`address'," DRIVE"," DR",1)  if (regexm(`address'," DRIVE$") | regexm(`address'," DRIVE [#|1-9]"))
  *replace `address' = subinstr(`address'," LA"," LN",1)  if (regexm(`address'," LA$") | regexm(`address'," LA [#|1-9]"))
  *replace `address' = subinstr(`address'," LANE"," LN",1)  if (regexm(`address'," LANE$") | regexm(`address'," LANE [#|1-9]"))
  replace `address' = subinstr(`address'," PARKWAY"," PKWY",1)  if (regexm(`address'," PARKWAY$") | regexm(`address'," PARKWAY [#|1-9]"))
  replace `address' = subinstr(`address'," PLACE"," PL",1)  if (regexm(`address'," PLACE$") | regexm(`address'," PLACE [#|1-9]"))
  replace `address' = subinstr(`address'," ROAD"," RD",1)  if (regexm(`address'," ROAD$") | regexm(`address'," ROAD [#|1-9]"))
  replace `address' = subinstr(`address'," SQUARE"," SQ",1)  if (regexm(`address'," SQUARE$") | regexm(`address'," SQUARE [#|1-9]"))
  replace `address' = subinstr(`address'," STREET"," ST",1)  if (regexm(`address'," STREET$") | regexm(`address'," STREET [#|1-9]"))
  replace `address' = subinstr(`address'," TER"," TERRACE",1)  if (regexm(`address'," TER$") | regexm(`address'," TER [#|1-9]"))
  replace `address' = subinstr(`address'," TRAIL"," TRL",1)  if (regexm(`address'," TRAIL$") | regexm(`address'," TRAIL [#|1-9]"))
  replace `address' = subinstr(`address',"NORTH ","N ",1)  if regexm(`address',"^NORTH ")
  replace `address' = subinstr(`address',"SOUTH ","S ",1)  if regexm(`address',"^SOUTH ")
  replace `address' = subinstr(`address',"EAST ","E ",1)  if regexm(`address',"^EAST ")
  replace `address' = subinstr(`address',"WEST ","W ",1)  if regexm(`address',"^WEST ")
  
  replace `address' = subinword(`address',"CRS","CRES",1);								/*GIS address locator uses different abbreviations*/
  replace `address' = subinword(`address',"CRESCENT","CRES",1);
  replace `address' = subinword(`address',"LA","LN",1) if word(`address',-1)=="LA"; 	/*Only replace street type, not street name*/
  replace `address' = subinword(`address',"LANE","LN",1);
  replace `address' = subinword(`address',"BL","BLV",1);
  replace `address' = subinword(`address',"BLVD","BLV",1);
  replace `address' = subinword(`address',"BOULEVARD","BLV",1);
  replace `address' = subinword(`address',"AV","AVE",1);
  replace `address' = subinword(`address',"AVENUE","AVE",1);

  replace `address' = subinstr(`address',"EMBER WAY","EMERALD AVE",1);
  replace `address' = subinstr(`address',"BEACON HILL ST","BEACON HILL",1);

  foreach d in NORTH SOUTH EAST WEST {;
	local dd = substr("`d'",1,1);
	replace `address' = subinword(`address',"`d'","`dd'",1) if !regexm(`address',"WEST ST") & !regexm(`address',"EAST DR");
	*replace `address' = subinword(`address',"`dd'.","`dd'",1);
  };
  
  replace `address' = subinword(`address',"1ST","FIRST",1);
  replace `address' = subinword(`address',"2ND","SECOND",1);
  replace `address' = subinword(`address',"3RD","THIRD",1);
  replace `address' = subinword(`address',"4TH","FOURTH",1);
  replace `address' = subinword(`address',"5TH","FIFTH",1);
  replace `address' = subinword(`address',"6TH","SIXTH",1);
  replace `address' = subinword(`address',"7TH","SEVENTH",1);
  replace `address' = subinword(`address',"8TH","EIGHTH",1);
  replace `address' = subinword(`address',"9TH","NINTH",1);
};

#delimit cr


local address "pid_address"
replace `address' = subinstr(`address'," ALGONAC AVE"," ALGONAC ST",1)  if regexm(`address'," ALGONAC AVE") & !regexm(`address'," ALGONAC ST")
replace `address' = subinstr(`address'," BERNICE AVE"," BERNICE ST",1)  if regexm(`address'," BERNICE AVE") & !regexm(`address'," BERNICE ST")
replace `address' = subinstr(`address'," CARHART AVE"," CARHART RD",1)  if regexm(`address'," CARHART AVE") & !regexm(`address'," CARHART RD")
replace `address' = subinstr(`address'," CHANDLER RD"," CHANDLER AVE",1)  if regexm(`address'," CHANDLER RD") & !regexm(`address'," CHANDLER AVE")
replace `address' = subinstr(`address'," FAIRVIEW DR"," FAIRVIEW AVE",1)  if regexm(`address'," FAIRVIEW DR") & !regexm(`address'," FAIRVIEW AVE")
replace `address' = subinstr(`address'," GARDNER AVE"," GARDNER RD",1)  if regexm(`address'," GARDNER AVE") & !regexm(`address'," GARDNER RD")
replace `address' = subinstr(`address'," HEATHERIDGE AVE"," HEATHERIDGE ST",1)  if regexm(`address'," HEATHERIDGE AVE") & !regexm(`address'," HEATHERIDGE ST")
replace `address' = subinstr(`address'," INDIAN CREEK DR"," INDIAN CREEK CIR",1)  if regexm(`address'," INDIAN CREEK DR") & !regexm(`address'," INDIAN CREEK CIR")
replace `address' = subinstr(`address'," INDIANOLA DR"," INDIANOLA AVE",1)  if regexm(`address'," INDIANOLA DR") & !regexm(`address'," INDIANOLA AVE")
replace `address' = subinstr(`address'," KUEHNLE AVE"," KUEHNLE ST",1)  if regexm(`address'," KUEHNLE AVE") & !regexm(`address'," KUEHNLE ST")
replace `address' = subinstr(`address'," LAKEHURST CT"," LAKEHURST LN",1)  if regexm(`address'," LAKEHURST CT") & !regexm(`address'," LAKEHURST LN")
replace `address' = subinstr(`address'," LA SALLE DR"," LA SALLE ST",1)  if regexm(`address'," LA SALLE DR") & !regexm(`address'," LA SALLE ST")
replace `address' = subinstr(`address'," LINDA VISTA AVE"," LINDA VISTA ST",1)  if regexm(`address'," LINDA VISTA AVE") & !regexm(`address'," LINDA VISTA ST")
replace `address' = subinstr(`address'," LONG SHORE DR"," LONGSHORE DR",1)  if regexm(`address'," LONG SHORE DR") & !regexm(`address'," LONGSHORE DR")
replace `address' = subinstr(`address'," MCCOMB ST"," MC COMB ST",1)  if regexm(`address'," MCCOMB ST") & !regexm(`address'," MC COMB ST")
replace `address' = subinstr(`address'," MELROSE AVE"," MELROSE RD",1)  if regexm(`address'," MELROSE AVE") & !regexm(`address'," MELROSE RD")
replace `address' = subinstr(`address'," MINGLEWOOD WAY"," MINGLEWOOD ST",1)  if regexm(`address'," MINGLEWOOD WAY") & !regexm(`address'," MINGLEWOOD ST")
replace `address' = subinstr(`address'," MIXTWOOD RD"," MIXTWOOD ST",1)  if regexm(`address'," MIXTWOOD RD") & !regexm(`address'," MIXTWOOD ST")
replace `address' = subinstr(`address'," MOREHEAD DR"," MOREHEAD CT",1)  if regexm(`address'," MOREHEAD DR") & !regexm(`address'," MOREHEAD CT")
replace `address' = subinstr(`address'," MULHOLLAND AVE"," MULHOLLAND ST",1)  if regexm(`address'," MULHOLLAND AVE") & !regexm(`address'," MULHOLLAND ST")
replace `address' = subinstr(`address'," CIR DR"," CIRCLE DR",1)  if regexm(`address'," CIR DR") & !regexm(`address'," CIRCLE DR")
replace `address' = subinstr(`address'," PARK LAKE AVE"," PARKLAKE AVE",1)  if regexm(`address'," PARK LAKE AVE") & !regexm(`address'," PARKLAKE AVE")
replace `address' = subinstr(`address'," PEBBLE CREEK RD"," PEBBLE CREEK DR",1)  if regexm(`address'," PEBBLE CREEK RD") & !regexm(`address'," PEBBLE CREEK DR")
replace `address' = subinstr(`address'," PENNSYLVANIA LN"," PENNSYLVANIA AVE",1)  if regexm(`address'," PENNSYLVANIA LN") & !regexm(`address'," PENNSYLVANIA AVE")
replace `address' = subinstr(`address'," PEPPER PIKE RD"," PEPPER PIKE ST",1)  if regexm(`address'," PEPPER PIKE RD") & !regexm(`address'," PEPPER PIKE ST")
replace `address' = subinstr(`address'," PHILADELPHIA DR"," PHILADELPHIA ST",1)  if regexm(`address'," PHILADELPHIA DR") & !regexm(`address'," PHILADELPHIA ST")
replace `address' = subinstr(`address'," PINE BRAE DR"," PINE BRAE ST",1)  if regexm(`address'," PINE BRAE DR") & !regexm(`address'," PINE BRAE ST")
replace `address' = subinstr(`address'," PONTIAC ST"," PONTIAC TRL",1)  if regexm(`address'," PONTIAC ST") & !regexm(`address'," PONTIAC TRL")
replace `address' = subinstr(`address'," PORTER AVE"," PORTER ST",1)  if regexm(`address'," PORTER AVE") & !regexm(`address'," PORTER ST")
replace `address' = subinstr(`address'," SALEM DR"," SALEM ST",1)  if regexm(`address'," SALEM DR") & !regexm(`address'," SALEM ST")
replace `address' = subinstr(`address'," SAXON ST"," SAXON DR",1)  if regexm(`address'," SAXON ST") & !regexm(`address'," SAXON DR")
replace `address' = subinstr(`address'," STELLAR RD"," STELLAR ST",1)  if regexm(`address'," STELLAR RD") & !regexm(`address'," STELLAR ST")
replace `address' = subinstr(`address'," STONEHAVEN RD"," STONEHAVEN ST",1)  if regexm(`address'," STONEHAVEN RD") & !regexm(`address'," STONEHAVEN ST")
replace `address' = subinstr(`address'," STEPHEN TER"," STEPHEN TERRACE",1)  if regexm(`address'," STEPHEN TER") & !regexm(`address'," STEPHEN TERRACE")
replace `address' = subinstr(`address'," LAKEHAVEN"," LAKEHAVEN CT",1)  if regexm(`address'," LAKEHAVEN") & !regexm(`address'," LAKEHAVEN CT")
replace `address' = subinstr(`address'," WATERSEDGE"," WATERSEDGE DR",1)  if regexm(`address'," WATERSEDGE") & !regexm(`address'," WATERSEDGE DR")

order pid-propaddresscombined pid_address pid_addressstreet city state zip, first
outsheet using AA_tax_roll_standard_addresses.txt, replace names noquote 



*MLS SALES DATA
use AA_sales_MLS_data.dta, clear
keep ml-cityortownshipname soldprice solddate sev tv sqft yearbuilt zipcode

capture gen city = "ANN ARBOR" if regexm(cityortownshipname,"RBOR")
replace city = "PITTSFIELD TOWNSHIP" if regexm(cityortownshipname,"PITT")
replace city = "LODI TOWNSHIP" if regexm(cityortownshipname,"LODI")
replace city = "SUPERIOR TOWNSHIP" if regexm(cityortownshipname,"SUPERIOR")
replace city = "SCIO TOWNSHIP" if regexm(cityortownshipname,"SCIO")

gen state = "MI"
rename zipcode zip


*gen mls_address = upper(trim(itrim(string(str)+" "+dir+" "+streetname)))
gen mls_addressstreet = upper(trim(itrim(dir+" "+streetname)))

#delimit ;
foreach address in /*mls_address*/ mls_addressstreet {;
  replace `address' = subinstr(`address',".","",.);
  
  *replace `address' = subinstr(`address'," AV"," AVE",1)  if (regexm(`address'," AV$") | regexm(`address'," AV [#|1-9]"))
  *replace `address' = subinstr(`address'," AVENUE"," AVE",1)  if (regexm(`address'," AVENUE$") | regexm(`address'," AVENUE [#|1-9]"))
  *replace `address' = subinstr(`address'," BL"," BLV",1)  if (regexm(`address'," BL$") | regexm(`address'," BL [#|1-9]"))
  *replace `address' = subinstr(`address'," BLVD"," BLV",1)  if (regexm(`address'," BLVD$") | regexm(`address'," BLVD [#|1-9]"))
  *replace `address' = subinstr(`address'," BOULEVARD"," BLV",1)  if (regexm(`address'," BOULEVARD$") | regexm(`address'," BOULEVARD [#|1-9]"))
  replace `address' = subinstr(`address'," CIRCLE"," CIR",1)  if (regexm(`address'," CIRCLE$") | regexm(`address'," CIRCLE [#|1-9]"))
  replace `address' = subinstr(`address'," COURT"," CT",1)  if (regexm(`address'," COURT$") | regexm(`address'," COURT [#|1-9]"))
  replace `address' = subinstr(`address'," CR"," CIR",1)  if (regexm(`address'," CR$") | regexm(`address'," CR [#|1-9]"))
  replace `address' = subinstr(`address'," DRIVE"," DR",1)  if (regexm(`address'," DRIVE$") | regexm(`address'," DRIVE [#|1-9]"))
  *replace `address' = subinstr(`address'," LA"," LN",1)  if (regexm(`address'," LA$") | regexm(`address'," LA [#|1-9]"))
  *replace `address' = subinstr(`address'," LANE"," LN",1)  if (regexm(`address'," LANE$") | regexm(`address'," LANE [#|1-9]"))
  replace `address' = subinstr(`address'," PARKWAY"," PKWY",1)  if (regexm(`address'," PARKWAY$") | regexm(`address'," PARKWAY [#|1-9]"))
  replace `address' = subinstr(`address'," PLACE"," PL",1)  if (regexm(`address'," PLACE$") | regexm(`address'," PLACE [#|1-9]"))
  replace `address' = subinstr(`address'," ROAD"," RD",1)  if (regexm(`address'," ROAD$") | regexm(`address'," ROAD [#|1-9]"))
  replace `address' = subinstr(`address'," SQUARE"," SQ",1)  if (regexm(`address'," SQUARE$") | regexm(`address'," SQUARE [#|1-9]"))
  replace `address' = subinstr(`address'," STREET"," ST",1)  if (regexm(`address'," STREET$") | regexm(`address'," STREET [#|1-9]"))
  replace `address' = subinstr(`address'," TER"," TERRACE",1)  if (regexm(`address'," TER$") | regexm(`address'," TER [#|1-9]"))
  replace `address' = subinstr(`address'," TRAIL"," TRL",1)  if (regexm(`address'," TRAIL$") | regexm(`address'," TRAIL [#|1-9]"))
  replace `address' = subinstr(`address',"NORTH ","N ",1)  if regexm(`address',"^NORTH ")
  replace `address' = subinstr(`address',"SOUTH ","S ",1)  if regexm(`address',"^SOUTH ")
  replace `address' = subinstr(`address',"EAST ","E ",1)  if regexm(`address',"^EAST ")
  replace `address' = subinstr(`address',"WEST ","W ",1)  if regexm(`address',"^WEST ")
  
  replace `address' = subinword(`address',"CRS","CRES",1);							/*GIS address locator uses different abbreviations*/
  replace `address' = subinword(`address',"CRESCENT","CRES",1);
  replace `address' = subinword(`address',"LA","LN",1) if word(`address',-1)=="LA"; 	/*Only replace street type, not street name*/
  replace `address' = subinword(`address',"LANE","LN",1);
  replace `address' = subinword(`address',"BL","BLV",1);
  replace `address' = subinword(`address',"BLVD","BLV",1);
  replace `address' = subinword(`address',"BOULEVARD","BLV",1);
  replace `address' = subinword(`address',"AV","AVE",1);
  replace `address' = subinword(`address',"AVENUE","AVE",1);

  replace `address' = subinstr(`address',"EMBER WAY","EMERALD AVE",1);
  replace `address' = subinstr(`address',"BEACON HILL ST","BEACON HILL",1);

  foreach d in NORTH SOUTH EAST WEST {;
	local dd = substr("`d'",1,1);
	replace `address' = subinword(`address',"`d'","`dd'",1) if !regexm(`address',"WEST ST") & !regexm(`address',"EAST DR");
	*replace `address' = subinword(`address',"`dd'.","`dd'",1);
  };
  
  replace `address' = subinword(`address',"1ST","FIRST",1);
  replace `address' = subinword(`address',"2ND","SECOND",1);
  replace `address' = subinword(`address',"3RD","THIRD",1);
  replace `address' = subinword(`address',"4TH","FOURTH",1);
  replace `address' = subinword(`address',"5TH","FIFTH",1);
  replace `address' = subinword(`address',"6TH","SIXTH",1);
  replace `address' = subinword(`address',"7TH","SEVENTH",1);
  replace `address' = subinword(`address',"8TH","EIGHTH",1);
  replace `address' = subinword(`address',"9TH","NINTH",1);
};
#delimit cr

foreach address in /*mls_address*/ mls_addressstreet {
replace `address' = subinword(`address',"ABBOTT","ABBOTT AVE",1)  if !regexm(`address',"ABBOTT AVE")
replace `address' = subinword(`address',"ABERDEEN","ABERDEEN DR",1)  if !regexm(`address',"ABERDEEN DR")
replace `address' = subinword(`address',"ADARE","ADARE RD",1)  if !regexm(`address',"ADARE RD")
replace `address' = subinword(`address',"AGINCOURT","AGINCOURT ST",1)  if !regexm(`address',"AGINCOURT ST")
replace `address' = subinword(`address',"AILSA CRAIG","AILSA CRAIG DR",1)  if !regexm(`address',"AILSA CRAIG DR")
replace `address' = subinword(`address',"ALGONAC","ALGONAC ST",1)  if !regexm(`address',"ALGONAC ST")
replace `address' = subinword(`address',"ALHAMBRA","ALHAMBRA DR",1)  if !regexm(`address',"ALHAMBRA DR")
replace `address' = subinword(`address',"ALICE","ALICE ST",1)  if !regexm(`address',"ALICE ST")
replace `address' = subinword(`address',"ALLEN","ALLEN DR",1)  if !regexm(`address',"ALLEN DR")
replace `address' = subinword(`address',"ALLISON","ALLISON DR",1)  if !regexm(`address',"ALLISON DR")
replace `address' = subinword(`address',"ALPINE","ALPINE DR",1)  if !regexm(`address',"ALPINE DR")
replace `address' = subinword(`address',"ANDERSON","ANDERSON AVE",1)  if !regexm(`address',"ANDERSON AVE")
replace `address' = subinword(`address',"ANDOVER","ANDOVER RD",1)  if !regexm(`address',"ANDOVER RD")
replace `address' = subinword(`address',"ANN","ANN ST",1)  if !regexm(`address',"ANN ST")
replace `address' = subinword(`address',"ANTIETAM","ANTIETAM DR",1)  if !regexm(`address',"ANTIETAM DR")
replace `address' = subinword(`address',"ARBANA","ARBANA DR",1)  if !regexm(`address',"ARBANA DR")
replace `address' = subinword(`address',"ARBORDALE","ARBORDALE ST",1)  if !regexm(`address',"ARBORDALE ST")
replace `address' = subinword(`address',"ARBORVIEW","ARBORVIEW BLV",1)  if !regexm(`address',"ARBORVIEW BLV")
replace `address' = subinword(`address',"ARCHWOOD","ARCHWOOD DR",1)  if !regexm(`address',"ARCHWOOD DR")
replace `address' = subinword(`address',"ARDENNE ","ARDENNE DR",1)  if !regexm(`address',"ARDENNE DR")
replace `address' = subinword(`address',"ARDMOOR","ARDMOOR AVE",1)  if !regexm(`address',"ARDMOOR AVE")
replace `address' = subinword(`address',"ARELLA","ARELLA BLV",1)  if !regexm(`address',"ARELLA BLV")
replace `address' = subinword(`address',"ARGO ","ARGO DR",1)  if !regexm(`address',"ARGO DR")
replace `address' = subinword(`address',"ARLENE","ARLENE ST",1)  if !regexm(`address',"ARLENE ST")
replace `address' = subinword(`address',"ARLINGTON","ARLINGTON BLV",1)  if !regexm(`address',"ARLINGTON BLV")
replace `address' = subinword(`address',"ASCOT","ASCOT RD",1)  if !regexm(`address',"ASCOT RD")
replace `address' = subinword(`address',"ASHBURNAM","ASHBURNAM RD",1)  if !regexm(`address',"ASHBURNAM RD")
replace `address' = subinword(`address',"ASHER","ASHER RD",1)  if !regexm(`address',"ASHER RD")
replace `address' = subinword(`address',"ASHLEY","ASHLEY ST",1)  if !regexm(`address',"ASHLEY ST") & !regexm(`address',"ASHLEY MEWS")
replace `address' = subinword(`address',"ASHLEY MEWS","ASHLEY MEWS DR",1)  if !regexm(`address',"ASHLEY MEWS DR")
replace `address' = subinword(`address',"ATTERBERRY","ATTERBERRY DR",1)  if !regexm(`address',"ATTERBERRY DR")
replace `address' = subinword(`address',"AURORA","AURORA ST",1)  if !regexm(`address',"AURORA ST")
replace `address' = subinword(`address',"AVONDALE","AVONDALE AVE",1)  if !regexm(`address',"AVONDALE AVE")
replace `address' = subinword(`address',"AWIXA","AWIXA RD",1)  if !regexm(`address',"AWIXA RD")
replace `address' = subinword(`address',"BALDWIN","BALDWIN AVE",1)  if !regexm(`address',"BALDWIN AVE")
replace `address' = subinword(`address',"BARBER","BARBER AVE",1)  if !regexm(`address',"BARBER AVE")
replace `address' = subinword(`address',"BARCLAY","BARCLAY WAY",1)  if !regexm(`address',"BARCLAY WAY")
replace `address' = subinword(`address',"BARDSTOWN ","BARDSTOWN TRL",1)  if !regexm(`address',"BARDSTOWN TRL")
replace `address' = subinword(`address',"BARNARD","BARNARD RD",1)  if !regexm(`address',"BARNARD RD")
replace `address' = subinword(`address',"BARRINGTON","BARRINGTON PL",1)  if !regexm(`address',"BARRINGTON PL")
replace `address' = subinword(`address',"BARRISTER","BARRISTER RD",1)  if !regexm(`address',"BARRISTER RD")
replace `address' = subinword(`address',"BARTON","BARTON DR",1)  if !regexm(`address',"BARTON DR")
replace `address' = subinword(`address',"BATH","BATH ST",1)  if !regexm(`address',"BATH ST")
replace `address' = subinword(`address',"BAYLIS","BAYLIS DR",1)  if !regexm(`address',"BAYLIS DR")
replace `address' = subinword(`address',"BEACON HILL","BEACON HILL ST",1)  if !regexm(`address',"BEACON HILL ST")
replace `address' = subinword(`address',"BEAKES","BEAKES ST",1)  if !regexm(`address',"BEAKES ST")
replace `address' = subinword(`address',"BEDFORD","BEDFORD RD",1)  if !regexm(`address',"BEDFORD RD")
replace `address' = subinword(`address',"BEECHWOOD","BEECHWOOD DR",1)  if !regexm(`address',"BEECHWOOD DR")
replace `address' = subinword(`address',"BELLWOOD","BELLWOOD AVE",1)  if !regexm(`address',"BELLWOOD AVE")
replace `address' = subinword(`address',"BELMAR","BELMAR PL",1)  if !regexm(`address',"BELMAR PL")
replace `address' = subinword(`address',"BELMONT","BELMONT RD",1)  if !regexm(`address',"BELMONT RD")
replace `address' = subinword(`address',"BELVIDERE","BELVIDERE ST",1)  if !regexm(`address',"BELVIDERE ST")
replace `address' = subinword(`address',"BENDING","BENDING RD",1)  if !regexm(`address',"BENDING RD")
replace `address' = subinword(`address',"BERKLEY","BERKLEY AVE",1)  if !regexm(`address',"BERKLEY AVE")
replace `address' = subinword(`address',"BERKSHIRE ","BERKSHIRE RD",1)  if !regexm(`address',"BERKSHIRE RD")
replace `address' = subinword(`address',"BERNICE","BERNICE ST",1)  if !regexm(`address',"BERNICE ST")
replace `address' = subinword(`address',"BIRCHWOOD","BIRCHWOOD DR",1)  if !regexm(`address',"BIRCHWOOD DR")
replace `address' = subinword(`address',"BIRK","BIRK AVE",1)  if !regexm(`address',"BIRK AVE")
replace `address' = subinword(`address',"BLUESTEM","BLUESTEM LN",1)  if !regexm(`address',"BLUESTEM LN")
replace `address' = subinword(`address',"BLUETT","BLUETT DR",1)  if !regexm(`address',"BLUETT DR")
replace `address' = subinword(`address',"BOLGOS","BOLGOS CIR",1)  if !regexm(`address',"BOLGOS CIR")
replace `address' = subinword(`address',"BOMBRIDGE","BOMBRIDGE CT",1)  if !regexm(`address',"BOMBRIDGE CT")
replace `address' = subinword(`address',"BOSTON","BOSTON CT",1)  if !regexm(`address',"BOSTON CT")
replace `address' = subinword(`address',"BOULDER","BOULDER DR",1)  if !regexm(`address',"BOULDER DR")
replace `address' = subinword(`address',"BRANDYWINE","BRANDYWINE DR",1)  if !regexm(`address',"BRANDYWINE DR")
replace `address' = subinword(`address',"BRENTWOOD","BRENTWOOD CT",1)  if !regexm(`address',"BRENTWOOD CT")
replace `address' = subinword(`address',"BRIARCLIFF","BRIARCLIFF ST",1)  if !regexm(`address',"BRIARCLIFF ST")
replace `address' = subinword(`address',"BRIARCREST","BRIARCREST DR",1)  if !regexm(`address',"BRIARCREST DR")
replace `address' = subinword(`address',"BROADWAY","BROADWAY ST",1)  if !regexm(`address',"BROADWAY ST")
replace `address' = subinword(`address',"BROCKMAN","BROCKMAN BLV",1)  if !regexm(`address',"BROCKMAN BLV")
replace `address' = subinword(`address',"BROOKLYN","BROOKLYN AVE",1)  if !regexm(`address',"BROOKLYN AVE")
replace `address' = subinword(`address',"BROOKS ","BROOKS ST",1)  if !regexm(`address',"BROOKS ST")
replace `address' = subinword(`address',"BROOKSIDE","BROOKSIDE DR",1)  if !regexm(`address',"BROOKSIDE DR")
replace `address' = subinword(`address',"BROOKWOOD","BROOKWOOD PL",1)  if !regexm(`address',"BROOKWOOD PL")
replace `address' = subinword(`address',"BROWN","BROWN ST",1)  if !regexm(`address',"BROWN ST")
replace `address' = subinword(`address',"BRUCE ","BRUCE ST",1)  if !regexm(`address',"BRUCE ST")
replace `address' = subinword(`address',"BUENA VISTA","BUENA VISTA AVE",1)  if !regexm(`address',"BUENA VISTA AVE")
replace `address' = subinword(`address',"BUNKER HILL","BUNKER HILL RD",1)  if !regexm(`address',"BUNKER HILL RD")
replace `address' = subinword(`address',"BURBANK","BURBANK DR",1)  if !regexm(`address',"BURBANK DR")
replace `address' = subinword(`address',"BURR OAK","BURR OAK DR",1)  if !regexm(`address',"BURR OAK DR")
replace `address' = subinword(`address',"BURTON","BURTON RD",1)  if !regexm(`address',"BURTON RD")
replace `address' = subinword(`address',"BURWOOD","BURWOOD AVE",1)  if !regexm(`address',"BURWOOD AVE")
replace `address' = subinword(`address',"CAMBRIDGE","CAMBRIDGE RD",1)  if !regexm(`address',"CAMBRIDGE RD")
replace `address' = subinword(`address',"CANTERBURY","CANTERBURY RD",1)  if !regexm(`address',"CANTERBURY RD")
replace `address' = subinword(`address',"CARDINAL","CARDINAL AVE",1)  if !regexm(`address',"CARDINAL AVE")
replace `address' = subinword(`address',"CARHART","CARHART RD",1)  if !regexm(`address',"CARHART RD")
replace `address' = subinword(`address',"CARMEL","CARMEL ST",1)  if !regexm(`address',"CARMEL ST")
replace `address' = subinword(`address',"CATALINA","CATALINA AVE",1)  if !regexm(`address',"CATALINA AVE")
replace `address' = subinword(`address',"CEDARBROOK","CEDARBROOK RD",1)  if !regexm(`address',"CEDARBROOK RD")
replace `address' = subinword(`address',"CENTER","CENTER DR",1)  if !regexm(`address',"CENTER DR")
replace `address' = subinword(`address',"CHALMERS","CHALMERS DR",1)  if !regexm(`address',"CHALMERS DR")
replace `address' = subinword(`address',"CHAMPAGNE","CHAMPAGNE DR",1)  if !regexm(`address',"CHAMPAGNE DR")
replace `address' = subinword(`address',"CHANDLER","CHANDLER AVE",1)  if !regexm(`address',"CHANDLER AVE")
replace `address' = subinword(`address',"CHAPIN","CHAPIN ST",1)  if !regexm(`address',"CHAPIN ST")
replace `address' = subinword(`address',"CHARING CROSS","CHARING CROSS RD",1)  if !regexm(`address',"CHARING CROSS RD")
replace `address' = subinword(`address',"CHARLTON","CHARLTON AVE",1)  if !regexm(`address',"CHARLTON AVE")
replace `address' = subinword(`address',"CHAUCER","CHAUCER DR",1)  if !regexm(`address',"CHAUCER DR")
replace `address' = subinword(`address',"CHEROKEE","CHEROKEE RD",1)  if !regexm(`address',"CHEROKEE RD")
replace `address' = subinword(`address',"CHERRY","CHERRY ST",1)  if !regexm(`address',"CHERRY ST")
replace `address' = subinword(`address',"CHERRYTREE LA","CHERRY TREE LA",1)  if !regexm(`address',"CHERRY TREE LA")
replace `address' = subinword(`address',"CHESTNUT","CHESTNUT RD",1)  if !regexm(`address',"CHESTNUT RD")
replace `address' = subinword(`address',"CHURCH","CHURCH ST",1)  if !regexm(`address',"CHURCH ST")
replace `address' = subinword(`address',"CHURCHILL","CHURCHILL DR",1)  if !regexm(`address',"CHURCHILL DR")
replace `address' = subinword(`address',"CIR","CIRCLE DR",1)  if !regexm(`address',"CIRCLE DR")
replace `address' = subinword(`address',"CLAGUE","CLAGUE AVE",1)  if !regexm(`address',"CLAGUE AVE")
replace `address' = subinword(`address',"CLARENDON","CLARENDON DR",1)  if !regexm(`address',"CLARENDON DR")
replace `address' = subinword(`address',"CLOVERDALE","CLOVERDALE RD",1)  if !regexm(`address',"CLOVERDALE RD")
replace `address' = subinword(`address',"COLER","COLER RD",1)  if !regexm(`address',"COLER RD")
replace `address' = subinword(`address',"COLIN CIR","COLIN CR",1)  if !regexm(`address',"COLIN CR")
replace `address' = subinword(`address',"COLONY","COLONY RD",1)  if !regexm(`address',"COLONY RD")
replace `address' = subinword(`address',"COLUMBIA","COLUMBIA AVE",1)  if !regexm(`address',"COLUMBIA AVE")
replace `address' = subinword(`address',"COPLEY","COPLEY AVE",1)  if !regexm(`address',"COPLEY AVE")
replace `address' = subinword(`address',"CORONADA","CORONADA DR",1)  if !regexm(`address',"CORONADA DR")
replace `address' = subinword(`address',"COVINGTON","COVINGTON DR",1)  if !regexm(`address',"COVINGTON DR")
replace `address' = subinword(`address',"CRANBROOK","CRANBROOK RD",1)  if !regexm(`address',"CRANBROOK RD")
replace `address' = subinword(`address',"CRAWFORD","CRAWFORD LN",1)  if !regexm(`address',"CRAWFORD LN")
replace `address' = subinword(`address',"CREEK","CREEK DR",1)  if !regexm(`address',"CREEK DR")
replace `address' = subinword(`address',"CREEKBEND","CREEKBEND CT",1)  if !regexm(`address',"CREEKBEND CT")
replace `address' = subinword(`address',"CREST","CREST AVE",1)  if !regexm(`address',"CREST AVE")
replace `address' = subinword(`address',"CRESTLAND","CRESTLAND DR",1)  if !regexm(`address',"CRESTLAND DR")
replace `address' = subinword(`address',"CROMWELL","CROMWELL RD",1)  if !regexm(`address',"CROMWELL RD")
replace `address' = subinword(`address',"CULVER","CULVER RD",1)  if !regexm(`address',"CULVER RD")
replace `address' = subinword(`address',"CUMBERLAND","CUMBERLAND AVE",1)  if !regexm(`address',"CUMBERLAND AVE")
replace `address' = subinword(`address',"DANIEL","DANIEL ST",1)  if !regexm(`address',"DANIEL ST")
replace `address' = subinword(`address',"DARROW","DARROW DR",1)  if !regexm(`address',"DARROW DR")
replace `address' = subinword(`address',"DARTMOOR","DARTMOOR RD",1)  if !regexm(`address',"DARTMOOR RD")
replace `address' = subinword(`address',"DAVIS","DAVIS AVE",1)  if !regexm(`address',"DAVIS AVE")
replace `address' = subinword(`address',"DAY","DAY ST",1)  if !regexm(`address',"DAY ST")
replace `address' = subinword(`address',"DELAFIELD","DELAFIELD DR",1)  if !regexm(`address',"DELAFIELD DR")
replace `address' = subinword(`address',"DELAWARE","DELAWARE DR",1)  if !regexm(`address',"DELAWARE DR")
replace `address' = subinword(`address',"DELLWOOD","DELLWOOD DR",1)  if !regexm(`address',"DELLWOOD DR")
replace `address' = subinword(`address',"DETROIT","DETROIT ST",1)  if !regexm(`address',"DETROIT ST")
replace `address' = subinword(`address',"DEVOLSON","DEVOLSON AVE",1)  if !regexm(`address',"DEVOLSON AVE")
replace `address' = subinword(`address',"DEVONSHIRE","DEVONSHIRE RD",1)  if !regexm(`address',"DEVONSHIRE RD")
replace `address' = subinword(`address',"DEWEY","DEWEY AVE",1)  if !regexm(`address',"DEWEY AVE")
replace `address' = subinword(`address',"DEXTER","DEXTER AVE",1)  if !regexm(`address',"DEXTER AVE")
replace `address' = subinword(`address',"DICKEN","DICKEN DR",1)  if !regexm(`address',"DICKEN DR")
replace `address' = subinword(`address',"DOBSON","DOBSON PL",1)  if !regexm(`address',"DOBSON PL")
replace `address' = subinword(`address',"DOGWOOD","DOGWOOD CT",1)  if !regexm(`address',"DOGWOOD CT")
replace `address' = subinword(`address',"DORCHESTER","DORCHESTER RD",1)  if !regexm(`address',"DORCHESTER RD")
replace `address' = subinword(`address',"DOTY","DOTY AVE",1)  if !regexm(`address',"DOTY AVE")
replace `address' = subinword(`address',"DUNCAN","DUNCAN ST",1)  if !regexm(`address',"DUNCAN ST")
replace `address' = subinword(`address',"DUNMORE","DUNMORE RD",1)  if !regexm(`address',"DUNMORE RD")
replace `address' = subinword(`address',"DUNNINGTON","DUNNINGTON DR",1)  if !regexm(`address',"DUNNINGTON DR")
replace `address' = subinword(`address',"DUNWOODIE","DUNWOODIE RD",1)  if !regexm(`address',"DUNWOODIE RD")
replace `address' = subinword(`address',"DWIGHT","DWIGHT ST",1)  if !regexm(`address',"DWIGHT ST")
replace `address' = subinword(`address',"EARHART","EARHART RD",1)  if !regexm(`address',"EARHART RD")
replace `address' = subinword(`address',"EARLMOORE","EARLMOORE LN",1)  if !regexm(`address',"EARLMOORE LN")
replace `address' = subinword(`address',"EASY","EASY ST",1)  if !regexm(`address',"EASY ST")
replace `address' = subinword(`address',"EBERWHITE","EBERWHITE BLV",1)  if !regexm(`address',"EBERWHITE BLV")
replace `address' = subinword(`address',"EDGEWOOD ","EDGEWOOD AVE",1)  if !regexm(`address',"EDGEWOOD AVE")
replace `address' = subinword(`address',"EIGHTH","EIGHTH ST",1)  if !regexm(`address',"EIGHTH ST")
replace `address' = subinword(`address',"EISENHOWER","EISENHOWER PKY",1)  if !regexm(`address',"EISENHOWER PKY")
replace `address' = subinword(`address',"ELI ","ELI DR",1)  if !regexm(`address',"ELI DR")
replace `address' = subinword(`address',"ELMWOOD","ELMWOOD AVE",1)  if !regexm(`address',"ELMWOOD AVE")
replace `address' = subinword(`address',"EMERALD","EMERALD AVE",1)  if !regexm(`address',"EMERALD AVE")
replace `address' = subinword(`address',"ENGLISH OAK","ENGLISH OAK DR",1)  if !regexm(`address',"ENGLISH OAK DR")
replace `address' = subinword(`address',"ESCH","ESCH AVE",1)  if !regexm(`address',"ESCH AVE")
replace `address' = subinword(`address',"ESSEX","ESSEX RD",1)  if !regexm(`address',"ESSEX RD")
replace `address' = subinword(`address',"EVERGREEN","EVERGREEN DR",1)  if !regexm(`address',"EVERGREEN DR")
replace `address' = subinword(`address',"EXMOOR","EXMOOR RD",1)  if !regexm(`address',"EXMOOR RD")
replace `address' = subinword(`address',"FAIR","FAIR ST",1)  if !regexm(`address',"FAIR ST") & !regexm(`address',"FAIR OAKS")
replace `address' = subinword(`address',"FAIR OAKS","FAIR OAKS PKY",1)  if !regexm(`address',"FAIR OAKS PKY")
replace `address' = subinword(`address',"FAIRHAVEN","FAIRHAVEN CT",1)  if !regexm(`address',"FAIRHAVEN CT")
replace `address' = subinword(`address',"FAIRLANE","FAIRLANE DR",1)  if !regexm(`address',"FAIRLANE DR")
replace `address' = subinword(`address',"FAIRMOUNT","FAIRMOUNT DR",1)  if !regexm(`address',"FAIRMOUNT DR")
replace `address' = subinword(`address',"FAIRVIEW","FAIRVIEW AVE",1)  if !regexm(`address',"FAIRVIEW AVE")
replace `address' = subinword(`address',"FARMBROOK","FARMBROOK CT",1)  if !regexm(`address',"FARMBROOK CT")
replace `address' = subinword(`address',"FAYE","FAYE DR",1)  if !regexm(`address',"FAYE DR")
replace `address' = subinword(`address',"FELCH","FELCH ST",1)  if !regexm(`address',"FELCH ST")
replace `address' = subinword(`address',"FENWICK","FENWICK CT",1)  if !regexm(`address',"FENWICK CT")
replace `address' = subinword(`address',"FERDON","FERDON RD",1)  if !regexm(`address',"FERDON RD")
replace `address' = subinword(`address',"FERNDALE","FERNDALE PL",1)  if !regexm(`address',"FERNDALE PL")
replace `address' = subinword(`address',"FERNWOOD","FERNWOOD AVE",1)  if !regexm(`address',"FERNWOOD AVE")
replace `address' = subinword(`address',"FERRY","FERRY ST",1)  if !regexm(`address',"FERRY ST")
replace `address' = subinword(`address',"FIELDCREST","FIELDCREST ST",1)  if !regexm(`address',"FIELDCREST ST")
replace `address' = subinword(`address',"S FIFTH ","S FIFTH AVE",1)  if !regexm(`address',"S FIFTH AVE")
replace `address' = subinword(`address',"N FIFTH ","N FIFTH AVE",1)  if !regexm(`address',"N FIFTH AVE")
replace `address' = subinword(`address',"FIFTH ","FIFTH ST",1)  if !regexm(`address',"FIFTH ST") & !regexm(`address',"FIFTH AV")
replace `address' = subinword(`address',"FIRST","FIRST ST",1)  if !regexm(`address',"FIRST ST")
replace `address' = subinword(`address',"FOLKSTONE","N FOLKSTONE CT",1)  if !regexm(`address',"N FOLKSTONE CT")
replace `address' = subinword(`address',"FOREST","FOREST AVE",1)  if !regexm(`address',"FOREST AVE") & !regexm(`address',"FOREST CREEK")
replace `address' = subinword(`address',"FOREST CREEK","FOREST CREEK CT",1)  if !regexm(`address',"FOREST CREEK CT")
replace `address' = subinword(`address',"FOUNTAIN","FOUNTAIN ST",1)  if !regexm(`address',"FOUNTAIN ST")
replace `address' = subinword(`address',"N FOURTH","N FOURTH AVE",1)  if !regexm(`address',"N FOURTH AVE")
replace `address' = subinword(`address',"S FOURTH","S FOURTH AVE",1)  if !regexm(`address',"S FOURTH AVE")
replace `address' = subinword(`address',"FOURTH","FOURTH ST",1)  if !regexm(`address',"FOURTH ST") & !regexm(`address',"FOURTH AV")
replace `address' = subinword(`address',"FOX HUNT","FOX HUNT DR",1)  if !regexm(`address',"FOX HUNT DR")
replace `address' = subinword(`address',"FOXWAY","FOXWAY DR",1)  if !regexm(`address',"FOXWAY DR")
replace `address' = subinword(`address',"FRANKLIN","FRANKLIN ST",1)  if !regexm(`address',"FRANKLIN ST")
replace `address' = subinword(`address',"FREDERICK","FREDERICK DR",1)  if !regexm(`address',"FREDERICK DR")
replace `address' = subinword(`address',"FREESIA","FREESIA CT",1)  if !regexm(`address',"FREESIA CT")
replace `address' = subinword(`address',"FRIEZE","FRIEZE AVE",1)  if !regexm(`address',"FRIEZE AVE")
replace `address' = subinword(`address',"FULMER","FULMER ST",1)  if !regexm(`address',"FULMER ST")
replace `address' = subinword(`address',"GALEN","GALEN CIR",1)  if !regexm(`address',"GALEN CIR")
replace `address' = subinword(`address',"GARDEN HOMES","GARDEN HOMES DR",1)  if !regexm(`address',"GARDEN HOMES DR")
replace `address' = subinword(`address',"GARDNER","GARDNER RD",1)  if !regexm(`address',"GARDNER RD")
replace `address' = subinword(`address',"GEDDES","GEDDES AVE",1)  if !regexm(`address',"GEDDES AVE") & !regexm(`address',"GEDDES HEIGHTS")
replace `address' = subinword(`address',"GEDDES HEIGHTS","GEDDES HEIGHTS DR",1)  if !regexm(`address',"GEDDES HEIGHTS DR")
replace `address' = subinword(`address',"GEORGETOWN","GEORGETOWN BLV",1)  if !regexm(`address',"GEORGETOWN BLV")
replace `address' = subinword(`address',"GETTYSBURG","GETTYSBURG RD",1)  if !regexm(`address',"GETTYSBURG RD")
replace `address' = subinword(`address',"GLADSTONE","GLADSTONE AVE",1)  if !regexm(`address',"GLADSTONE AVE")
replace `address' = subinword(`address',"GLASTONBURY","GLASTONBURY RD",1)  if !regexm(`address',"GLASTONBURY RD")
replace `address' = subinword(`address',"GLAZIER ","GLAZIER WAY",1)  if !regexm(`address',"GLAZIER WAY")
replace `address' = subinword(`address',"GLEN LEVEN","GLEN LEVEN RD",1)  if !regexm(`address',"GLEN LEVEN RD")
replace `address' = subinword(`address',"GLENBRIDGE","GLENBRIDGE CT",1)  if !regexm(`address',"GLENBRIDGE CT")
replace `address' = subinword(`address',"GLENDALE","GLENDALE CIR",1)  if !regexm(`address',"GLENDALE CIR")
replace `address' = subinword(`address',"GOLDEN","GOLDEN AVE",1)  if !regexm(`address',"GOLDEN AVE")
replace `address' = subinword(`address',"GOTT","GOTT ST",1)  if !regexm(`address',"GOTT ST")
replace `address' = subinword(`address',"GRALAKE","GRALAKE AVE",1)  if !regexm(`address',"GRALAKE AVE")
replace `address' = subinword(`address',"GRANADA","GRANADA AVE",1)  if !regexm(`address',"GRANADA AVE")
replace `address' = subinword(`address',"GRANDVIEW","GRANDVIEW DR",1)  if !regexm(`address',"GRANDVIEW DR")
replace `address' = subinword(`address',"GRANGER","GRANGER AVE",1)  if !regexm(`address',"GRANGER AVE")
replace `address' = subinword(`address',"GREEN","GREEN RD",1)  if !regexm(`address',"GREEN RD")
replace `address' = subinword(`address',"GREENHILLS","GREENHILLS DR",1)  if !regexm(`address',"GREENHILLS DR")
replace `address' = subinword(`address',"GREENVIEW","GREENVIEW DR",1)  if !regexm(`address',"GREENVIEW DR")
replace `address' = subinword(`address',"HAISLEY ","HAISLEY DR",1)  if !regexm(`address',"HAISLEY DR")
replace `address' = subinword(`address',"HALL","HALL AVE",1)  if !regexm(`address',"HALL AVE")
replace `address' = subinword(`address',"HAMPSHIRE","HAMPSHIRE RD",1)  if !regexm(`address',"HAMPSHIRE RD")
replace `address' = subinword(`address',"HANOVER","HANOVER RD",1)  if !regexm(`address',"HANOVER RD")
replace `address' = subinword(`address',"HARBROOKE","HARBROOKE AVE",1)  if !regexm(`address',"HARBROOKE AVE")
replace `address' = subinword(`address',"HARDING","HARDING RD",1)  if !regexm(`address',"HARDING RD")
replace `address' = subinword(`address',"HARPST","HARPST ST",1)  if !regexm(`address',"HARPST ST")
replace `address' = subinword(`address',"HASPER","HASPER DR",1)  if !regexm(`address',"HASPER DR")
replace `address' = subinword(`address',"HAWTHORN","HAWTHORN RD",1)  if !regexm(`address',"HAWTHORN RD")
replace `address' = subinword(`address',"HEATHERIDGE","HEATHERIDGE ST",1)  if !regexm(`address',"HEATHERIDGE ST")
replace `address' = subinword(`address',"HEATHERWAY","HEATHER WAY",1)  if !regexm(`address',"HEATHER WAY")
replace `address' = subinword(`address',"HELEN","HELEN ST",1)  if !regexm(`address',"HELEN ST")
replace `address' = subinword(`address',"HEMLOCK","HEMLOCK DR",1)  if !regexm(`address',"HEMLOCK DR")
replace `address' = subinword(`address',"HENRY","HENRY ST",1)  if !regexm(`address',"HENRY ST")
replace `address' = subinword(`address',"HERITAGE","HERITAGE DR",1)  if !regexm(`address',"HERITAGE DR")
replace `address' = subinword(`address',"HERMITAGE","HERMITAGE RD",1)  if !regexm(`address',"HERMITAGE RD")
replace `address' = subinword(`address',"HEWETT","HEWETT DR",1)  if !regexm(`address',"HEWETT DR")
replace `address' = subinword(`address',"HIAWATHA ","HIAWATHA PL",1)  if !regexm(`address',"HIAWATHA PL")
replace `address' = subinword(`address',"HICKORY POINT","HICKORY POINT DR",1)  if !regexm(`address',"HICKORY POINT DR")
replace `address' = subinword(`address',"HIGH ORCHARD","HIGH ORCHARD DR",1)  if !regexm(`address',"HIGH ORCHARD DR")
replace `address' = subinword(`address',"HIGHLAKE","HIGHLAKE AVE",1)  if !regexm(`address',"HIGHLAKE AVE")
replace `address' = subinword(`address',"HIGHLAND","HIGHLAND RD",1)  if !regexm(`address',"HIGHLAND RD")
replace `address' = subinword(`address',"HILLCREST","HILLCREST DR",1)  if !regexm(`address',"HILLCREST DR")
replace `address' = subinword(`address',"HILLDALE","HILLDALE DR",1)  if !regexm(`address',"HILLDALE DR")
replace `address' = subinword(`address',"HILLRIDGE","HILLRIDGE BLV",1)  if !regexm(`address',"HILLRIDGE BLV")
replace `address' = subinword(`address',"HILLTOP","HILLTOP DR",1)  if !regexm(`address',"HILLTOP DR")
replace `address' = subinword(`address',"HISCOCK","HISCOCK ST",1)  if !regexm(`address',"HISCOCK ST")
replace `address' = subinword(`address',"HOLYOKE","HOLYOKE LN",1)  if !regexm(`address',"HOLYOKE LN")
replace `address' = subinword(`address',"HOOVER","HOOVER AVE",1)  if !regexm(`address',"HOOVER AVE")
replace `address' = subinword(`address',"HUNLEY","HUNLEY DR",1)  if !regexm(`address',"HUNLEY DR")
replace `address' = subinword(`address',"HUNTING VALLEY","HUNTING VALLEY RD",1)  if !regexm(`address',"HUNTING VALLEY RD")
replace `address' = subinword(`address',"HUNTINGTON","HUNTINGTON DR",1)  if !regexm(`address',"HUNTINGTON DR")
replace `address' = subinword(`address',"E HURON","E HURON ST",1)  if !regexm(`address',"E HURON ST") & !regexm(`address',"RIVER")
replace `address' = subinword(`address',"W HURON","W HURON ST",1)  if !regexm(`address',"W HURON ST") & !regexm(`address',"RIVER")
replace `address' = subinword(`address',"HUTCHINS ","HUTCHINS AVE",1)  if !regexm(`address',"HUTCHINS AVE")
replace `address' = subinword(`address',"INDEPENDENCE","INDEPENDENCE BLV",1)  if !regexm(`address',"INDEPENDENCE BLV")
replace `address' = subinword(`address',"INDIAN CREEK","INDIAN CREEK CIR",1)  if !regexm(`address',"INDIAN CREEK CIR")
replace `address' = subinword(`address',"INDIANOLA","INDIANOLA AVE",1)  if !regexm(`address',"INDIANOLA AVE")
replace `address' = subinword(`address',"IRONWOOD","IRONWOOD DR",1)  if !regexm(`address',"IRONWOOD DR")
replace `address' = subinword(`address',"IROQUOIS","IROQUOIS PL",1)  if !regexm(`address',"IROQUOIS PL")
replace `address' = subinword(`address',"IVYDALE","IVYDALE AVE",1)  if !regexm(`address',"IVYDALE AVE")
replace `address' = subinword(`address',"IVYWOOD","IVYWOOD DR",1)  if !regexm(`address',"IVYWOOD DR")
replace `address' = subinword(`address',"JACKSON","JACKSON AVE",1)  if !regexm(`address',"JACKSON AVE")
replace `address' = subinword(`address',"JAMES","JAMES ST",1)  if !regexm(`address',"JAMES ST")
replace `address' = subinword(`address',"JEFFERSON","JEFFERSON ST",1)  if !regexm(`address',"JEFFERSON ST")
replace `address' = subinword(`address',"JEWETT","JEWETT AVE",1)  if !regexm(`address',"JEWETT AVE")
replace `address' = subinword(`address',"JONES","JONES DR",1)  if !regexm(`address',"JONES DR")
replace `address' = subinword(`address',"KEARNEY","KEARNEY RD",1)  if !regexm(`address',"KEARNEY RD")
replace `address' = subinword(`address',"KEECH","KEECH AVE",1)  if !regexm(`address',"KEECH AVE")
replace `address' = subinword(`address',"KELLOGG","KELLOGG ST",1)  if !regexm(`address',"KELLOGG ST")
replace `address' = subinword(`address',"KELLY GREEN","KELLY GREEN DR",1)  if !regexm(`address',"KELLY GREEN DR")
replace `address' = subinword(`address',"KENILWORTH","KENILWORTH DR",1)  if !regexm(`address',"KENILWORTH DR")
replace `address' = subinword(`address',"KENSINGTON","KENSINGTON DR",1)  if !regexm(`address',"KENSINGTON DR")
replace `address' = subinword(`address',"KENWOOD","KENWOOD AVE",1)  if !regexm(`address',"KENWOOD AVE")
replace `address' = subinword(`address',"KILBURN","KILBURN PARK CIR",1)  if !regexm(`address',"KILBURN PARK CIR")
replace `address' = subinword(`address',"KIMBERLEY","KIMBERLEY RD",1)  if !regexm(`address',"KIMBERLEY RD")
replace `address' = subinword(`address',"KING GEORGE","KING GEORGE BLV",1)  if !regexm(`address',"KING GEORGE BLV")
replace `address' = subinword(`address',"KINGSBROOK","KINGSBROOK AVE",1)  if !regexm(`address',"KINGSBROOK AVE")
replace `address' = subinword(`address',"KINGSLEY","KINGSLEY ST",1)  if !regexm(`address',"KINGSLEY ST")
replace `address' = subinword(`address',"KIPLING","KIPLING DR",1)  if !regexm(`address',"KIPLING DR")
replace `address' = subinword(`address',"KIRTLAND","KIRTLAND DR",1)  if !regexm(`address',"KIRTLAND DR")
replace `address' = subinword(`address',"KNIGHTSBRIDGE","KNIGHTSBRIDGE CIR",1)  if !regexm(`address',"KNIGHTSBRIDGE CIR")
replace `address' = subinword(`address',"KOCH ","KOCH AVE",1)  if !regexm(`address',"KOCH AVE")
replace `address' = subinword(`address',"KUEHNLE","KUEHNLE ST",1)  if !regexm(`address',"KUEHNLE ST")
replace `address' = subinword(`address',"LAFAYETTE","LAFAYETTE RD",1)  if !regexm(`address',"LAFAYETTE RD")
replace `address' = subinword(`address',"LAKEHURST","LAKEHURST LN",1)  if !regexm(`address',"LAKEHURST LN")
replace `address' = subinword(`address',"LAKEVIEW","LAKEVIEW DR",1)  if !regexm(`address',"LAKEVIEW DR")
replace `address' = subinword(`address',"LAKEWOOD","LAKEWOOD DR",1)  if !regexm(`address',"LAKEWOOD DR")
replace `address' = subinword(`address',"LARCHMONT","LARCHMONT DR",1)  if !regexm(`address',"LARCHMONT DR")
replace `address' = subinword(`address',"LARKSPUR","LARKSPUR ST",1)  if !regexm(`address',"LARKSPUR ST")
replace `address' = subinword(`address',"LAS VEGAS","LAS VEGAS DR",1)  if !regexm(`address',"LAS VEGAS DR")
replace `address' = subinword(`address',"LASALLE","LA SALLE ST",1)  if !regexm(`address',"LA SALLE ST")
replace `address' = subinword(`address',"LAWRENCE","LAWRENCE ST",1)  if !regexm(`address',"LAWRENCE ST")
replace `address' = subinword(`address',"LENNOX","LENNOX ST",1)  if !regexm(`address',"LENNOX ST")
replace `address' = subinword(`address',"LEONA","LEONA DR",1)  if !regexm(`address',"LEONA DR")
replace `address' = subinword(`address',"LESLIE PARK","LESLIE PARK CIR",1)  if !regexm(`address',"LESLIE PARK CIR")
replace `address' = subinword(`address',"LEXINGTON","LEXINGTON DR",1)  if !regexm(`address',"LEXINGTON DR")
replace `address' = subinword(`address',"LIBERTY","LIBERTY ST",1)  if !regexm(`address',"LIBERTY ST") & !regexm(`address',"LIBERTY POINTE")
replace `address' = subinword(`address',"LIBERTY POINTE","LIBERTY POINTE DR",1)  if !regexm(`address',"LIBERTY POINTE DR")
replace `address' = subinword(`address',"LILLIAN","LILLIAN RD",1)  if !regexm(`address',"LILLIAN RD")
replace `address' = subinword(`address',"LINCOLN","LINCOLN AVE",1)  if !regexm(`address',"LINCOLN AVE")
replace `address' = subinword(`address',"LINDA VISTA","LINDA VISTA ST",1)  if !regexm(`address',"LINDA VISTA ST")
replace `address' = subinword(`address',"LINDSAY ","LINDSAY LN",1)  if !regexm(`address',"LINDSAY LN")
replace `address' = subinword(`address',"LINWOOD","LINWOOD AVE",1)  if !regexm(`address',"LINWOOD AVE")
replace `address' = subinword(`address',"LOCKRIDGE","LOCKRIDGE DR",1)  if !regexm(`address',"LOCKRIDGE DR")
replace `address' = subinword(`address',"LONDONDERRY","LONDONDERRY RD",1)  if !regexm(`address',"LONDONDERRY RD")
replace `address' = subinword(`address',"LONGSHORE","LONG SHORE DR",1)  if !regexm(`address',"LONG SHORE DR") & !regexm(`address',"LONGSHORE (A)") & !regexm(`address',"LONGSHORE-A")
replace `address' = subinword(`address',"LONGSHORE (A)","LONG SHORE DR A",1)  if !regexm(`address',"LONG SHORE DR A")
replace `address' = subinword(`address',"LONGSHORE-A","LONG SHORE DR A",1)  if !regexm(`address',"LONG SHORE DR A")
replace `address' = subinword(`address',"LORRAINE","LORRAINE ST",1)  if !regexm(`address',"LORRAINE ST")
replace `address' = subinword(`address',"LOUISE","LOUISE DR",1)  if !regexm(`address',"LOUISE DR")
replace `address' = subinword(`address',"LOWELL","LOWELL RD",1)  if !regexm(`address',"LOWELL RD")
replace `address' = subinword(`address',"LOYOLA","LOYOLA DR",1)  if !regexm(`address',"LOYOLA DR")
replace `address' = subinword(`address',"LUTZ ","LUTZ AVE",1)  if !regexm(`address',"LUTZ AVE")
replace `address' = subinword(`address',"E MADISON","E MADISON ST",1)  if !regexm(`address',"E MADISON ST")
replace `address' = subinword(`address',"W MADISON","W MADISON ST",1)  if !regexm(`address',"W MADISON ST")
replace `address' = subinword(`address',"MADISON","MADISON PL",1)  if !regexm(`address',"MADISON PL") & !regexm(`address',"MADISON ST")
replace `address' = subinword(`address',"MAIN","MAIN ST",1)  if !regexm(`address',"MAIN ST")
replace `address' = subinword(`address',"MAITLAND","MAITLAND DR",1)  if !regexm(`address',"MAITLAND DR")
replace `address' = subinword(`address',"MALLARD","MALLARD CT",1)  if !regexm(`address',"MALLARD CT")
replace `address' = subinword(`address',"MANCHESTER","MANCHESTER RD",1)  if !regexm(`address',"MANCHESTER RD")
replace `address' = subinword(`address',"MANITOU","MANITOU CT",1)  if !regexm(`address',"MANITOU CT")
replace `address' = subinword(`address',"MANOR","MANOR DR",1)  if !regexm(`address',"MANOR DR")
replace `address' = subinword(`address',"N MAPLE","N MAPLE RD",1)  if !regexm(`address',"N MAPLE RD")
replace `address' = subinword(`address',"S MAPLE","S MAPLE RD",1)  if !regexm(`address',"S MAPLE RD")
replace `address' = subinword(`address',"MAPLE RIDGE","MAPLE RIDGE ST",1)  if !regexm(`address',"MAPLE RIDGE ST")
replace `address' = subinword(`address',"MAPLEWOOD","MAPLEWOOD AVE",1)  if !regexm(`address',"MAPLEWOOD AVE")
replace `address' = subinword(`address',"MARIAN","MARIAN AVE",1)  if !regexm(`address',"MARIAN AVE")
replace `address' = subinword(`address',"MARK HANNAH","MARK HANNAH PL",1)  if !regexm(`address',"MARK HANNAH PL")
replace `address' = subinword(`address',"MARLBOROUGH","MARLBOROUGH DR",1)  if !regexm(`address',"MARLBOROUGH DR")
replace `address' = subinword(`address',"MARSHALL","MARSHALL ST",1)  if !regexm(`address',"MARSHALL ST")
replace `address' = subinword(`address',"MARTHA","MARTHA AVE",1)  if !regexm(`address',"MARTHA AVE")
replace `address' = subinword(`address',"MARYFIELD","MARYFIELD DR",1)  if !regexm(`address',"MARYFIELD DR")
replace `address' = subinword(`address',"MASON","MASON AVE",1)  if !regexm(`address',"MASON AVE")
replace `address' = subinword(`address',"MAYWOOD","MAYWOOD AVE",1)  if !regexm(`address',"MAYWOOD AVE")
replace `address' = subinword(`address',"MCCOMB","MC COMB ST",1)  if !regexm(`address',"MC COMB ST")
replace `address' = subinword(`address',"MEADOWBROOK","MEADOWBROOK AVE",1)  if !regexm(`address',"MEADOWBROOK AVE")
replace `address' = subinword(`address',"MEADOWRIDGE","MEADOWRIDGE CT",1)  if !regexm(`address',"MEADOWRIDGE CT")
replace `address' = subinword(`address',"MEADOWSIDE","MEADOWSIDE DR",1)  if !regexm(`address',"MEADOWSIDE DR")
replace `address' = subinword(`address',"MEDFORD","MEDFORD RD",1)  if !regexm(`address',"MEDFORD RD")
replace `address' = subinword(`address',"MELROSE","MELROSE RD",1)  if !regexm(`address',"MELROSE RD")
replace `address' = subinword(`address',"MERSHON","MERSHON DR",1)  if !regexm(`address',"MERSHON DR")
replace `address' = subinword(`address',"MIDDLETON","MIDDLETON DR",1)  if !regexm(`address',"MIDDLETON DR")
replace `address' = subinword(`address',"MILLER","MILLER AVE",1)  if !regexm(`address',"MILLER AVE")
replace `address' = subinword(`address',"MINER","MINER ST",1)  if !regexm(`address',"MINER ST")
replace `address' = subinword(`address',"MINERVA","MINERVA RD",1)  if !regexm(`address',"MINERVA RD")
replace `address' = subinword(`address',"MINGLEWOOD","MINGLEWOOD ST",1)  if !regexm(`address',"MINGLEWOOD ST")
replace `address' = subinword(`address',"MIXTWOOD","MIXTWOOD ST",1)  if !regexm(`address',"MIXTWOOD ST")
replace `address' = subinword(`address',"MONTCLAIR","MONTCLAIR PL",1)  if !regexm(`address',"MONTCLAIR PL")
replace `address' = subinword(`address',"MONTGOMERY","MONTGOMERY AVE",1)  if !regexm(`address',"MONTGOMERY AVE")
replace `address' = subinword(`address',"MONUMENT","MONUMENT DR",1)  if !regexm(`address',"MONUMENT DR")
replace `address' = subinword(`address',"MOREHEAD","MOREHEAD CT",1)  if !regexm(`address',"MOREHEAD CT")
replace `address' = subinword(`address',"MORNINGSIDE","MORNINGSIDE DR",1)  if !regexm(`address',"MORNINGSIDE DR")
replace `address' = subinword(`address',"MORTON","MORTON AVE",1)  if !regexm(`address',"MORTON AVE")
replace `address' = subinword(`address',"MT PLEASANT","MT PLEASANT AVE",1)  if !regexm(`address',"MT PLEASANT AVE")
replace `address' = subinword(`address',"MULBERRY","MULBERRY CT",1)  if !regexm(`address',"MULBERRY CT")
replace `address' = subinword(`address',"MULHOLLAND","MULHOLLAND ST",1)  if !regexm(`address',"MULHOLLAND ST")
replace `address' = subinword(`address',"MURRAY","MURRAY AVE",1)  if !regexm(`address',"MURRAY AVE")
replace `address' = subinword(`address',"N CIR","N CIRCLE DR",1)  if !regexm(`address',"N CIRCLE DR")
replace `address' = subinword(`address',"NATURE COVE","NATURE COVE CT",1)  if !regexm(`address',"NATURE COVE CT")
replace `address' = subinword(`address',"NE LAKEHURST LN","LAKEHURST LN",1)  if !regexm(`address',"LAKEHURST LN")
replace `address' = subinword(`address',"NEEDHAM","NEEDHAM RD",1)  if !regexm(`address',"NEEDHAM RD")
replace `address' = subinword(`address',"NEWCASTLE","NEWCASTLE RD",1)  if !regexm(`address',"NEWCASTLE RD")
replace `address' = subinword(`address',"NEWPORT","NEWPORT RD",1)  if !regexm(`address',"NEWPORT RD") & !regexm(`address',"NEWPORT CREEK")
replace `address' = subinword(`address',"NEWPORT CREEK","NEWPORT CREEK DR",1)  if !regexm(`address',"NEWPORT CREEK DR")
replace `address' = subinword(`address',"NINTH","NINTH ST",1)  if !regexm(`address',"NINTH ST")
replace `address' = subinword(`address',"NIXON","NIXON RD",1)  if !regexm(`address',"NIXON RD")
replace `address' = subinword(`address',"NORDMAN","NORDMAN RD",1)  if !regexm(`address',"NORDMAN RD")
replace `address' = subinword(`address',"NORFOLK","NORFOLK AVE",1)  if !regexm(`address',"NORFOLK AVE")
replace `address' = subinword(`address',"NORMANDY","NORMANDY RD",1)  if !regexm(`address',"NORMANDY RD")
replace `address' = subinword(`address',"NORTHSIDE","NORTHSIDE AVE",1)  if !regexm(`address',"NORTHSIDE AVE")
replace `address' = subinword(`address',"NORWAY","NORWAY RD",1)  if !regexm(`address',"NORWAY RD")
replace `address' = subinword(`address',"NORWOOD","NORWOOD ST",1)  if !regexm(`address',"NORWOOD ST")
replace `address' = subinword(`address',"NOTTINGHAM","NOTTINGHAM RD",1)  if !regexm(`address',"NOTTINGHAM RD")
replace `address' = subinword(`address',"OAK HILLS","OAK HILLS DR",1)  if !regexm(`address',"OAK HILLS DR")
replace `address' = subinword(`address',"OAKBROOK","OAKBROOK DR",1)  if !regexm(`address',"OAKBROOK DR")
replace `address' = subinword(`address',"OAKLAND","OAKLAND AVE",1)  if !regexm(`address',"OAKLAND AVE")
replace `address' = subinword(`address',"OAKWOOD","OAKWOOD ST",1)  if !regexm(`address',"OAKWOOD ST")
replace `address' = subinword(`address',"OLDEN","OLDEN RD",1)  if !regexm(`address',"OLDEN RD")
replace `address' = subinword(`address',"OLIVIA","OLIVIA AVE",1)  if !regexm(`address',"OLIVIA AVE")
replace `address' = subinword(`address',"ORCHARD","ORCHARD ST",1)  if !regexm(`address',"ORCHARD ST") & !regexm(`address',"ORCHARD HILLS")
replace `address' = subinword(`address',"ORCHARD HILLS","ORCHARD HILLS DR",1)  if !regexm(`address',"ORCHARD HILLS DR")
replace `address' = subinword(`address',"ORKNEY","ORKNEY DR",1)  if !regexm(`address',"ORKNEY DR")
replace `address' = subinword(`address',"OSWEGO","OSWEGO ST",1)  if !regexm(`address',"OSWEGO ST")
replace `address' = subinword(`address',"OTTAWA","OTTAWA RD",1)  if !regexm(`address',"OTTAWA RD")
replace `address' = subinword(`address',"OVERLOOK","OVERLOOK CT",1)  if !regexm(`address',"OVERLOOK CT")
replace `address' = subinword(`address',"OVERRIDGE","OVERRIDGE DR",1)  if !regexm(`address',"OVERRIDGE DR")
replace `address' = subinword(`address',"PACKARD","PACKARD ST",1)  if !regexm(`address',"PACKARD ST")
replace `address' = subinword(`address',"PAGE","PAGE AVE",1)  if !regexm(`address',"PAGE AVE")
replace `address' = subinword(`address',"PALOMAR","PALOMAR DR",1)  if !regexm(`address',"PALOMAR DR")
replace `address' = subinword(`address',"PAMELA","PAMELA AVE",1)  if !regexm(`address',"PAMELA AVE")
replace `address' = subinword(`address',"PARK","PARK PL",1)  if !regexm(`address',"PARK PL")
replace `address' = subinword(`address',"PARKLAKE","PARK LAKE AVE",1)  if !regexm(`address',"PARK LAKE AVE")
replace `address' = subinword(`address',"PARKWOOD","PARKWOOD AVE",1)  if !regexm(`address',"PARKWOOD AVE")
replace `address' = subinword(`address',"PATRICIA","PATRICIA AVE",1)  if !regexm(`address',"PATRICIA AVE")
replace `address' = subinword(`address',"PAULINE","PAULINE BLV",1)  if !regexm(`address',"PAULINE BLV")
replace `address' = subinword(`address',"PEAR","PEAR ST",1)  if !regexm(`address',"PEAR ST")
replace `address' = subinword(`address',"PEBBLE CREEK","PEBBLE CREEK DR",1)  if !regexm(`address',"PEBBLE CREEK DR")
replace `address' = subinword(`address',"PENBERTON","PENBERTON DR",1)  if !regexm(`address',"PENBERTON DR")
replace `address' = subinword(`address',"PENNSYLVANIA","PENNSYLVANIA AVE",1)  if !regexm(`address',"PENNSYLVANIA AVE")
replace `address' = subinword(`address',"PEPPER PIKE","PEPPER PIKE ST",1)  if !regexm(`address',"PEPPER PIKE ST")
replace `address' = subinword(`address',"PHILADELPHIA","PHILADELPHIA ST",1)  if !regexm(`address',"PHILADELPHIA ST")
replace `address' = subinword(`address',"PIN OAK","PIN OAK DR",1)  if !regexm(`address',"PIN OAK DR")
replace `address' = subinword(`address',"PINE BLUFF CT","PINEBLUFF CT",1)  if !regexm(`address',"PINEBLUFF CT")
replace `address' = subinword(`address',"PINE BRAE","PINE BRAE ST",1)  if !regexm(`address',"PINE BRAE ST")
replace `address' = subinword(`address',"PINE TREE","PINE TREE DR",1)  if !regexm(`address',"PINE TREE DR")
replace `address' = subinword(`address',"PINE VALLEY","PINE VALLEY BLV",1)  if !regexm(`address',"PINE VALLEY BLV")
replace `address' = subinword(`address',"PINECREST","PINECREST AVE",1)  if !regexm(`address',"PINECREST AVE")
replace `address' = subinword(`address',"PINEWOOD","PINEWOOD ST",1)  if !regexm(`address',"PINEWOOD ST")
replace `address' = subinword(`address',"PITTSFIELD","PITTSFIELD BLV",1)  if !regexm(`address',"PITTSFIELD BLV")
replace `address' = subinword(`address',"PITTSVIEW","PITTSVIEW DR",1)  if !regexm(`address',"PITTSVIEW DR")
replace `address' = subinword(`address',"PLACID","PLACID WAY",1)  if !regexm(`address',"PLACID WAY")
replace `address' = subinword(`address',"PLATT","PLATT RD",1)  if !regexm(`address',"PLATT RD")
replace `address' = subinword(`address',"POMONA","POMONA RD",1)  if !regexm(`address',"POMONA RD")
replace `address' = subinword(`address',"PONDS VIEW","PONDS VIEW DR",1)  if !regexm(`address',"PONDS VIEW DR")
replace `address' = subinword(`address',"PONTIAC","PONTIAC TRL",1)  if !regexm(`address',"PONTIAC TRL")
replace `address' = subinword(`address',"PORTER","PORTER ST",1)  if !regexm(`address',"PORTER ST")
replace `address' = subinword(`address',"POWELL","POWELL AVE",1)  if !regexm(`address',"POWELL AVE")
replace `address' = subinword(`address',"PRAIRIE","PRAIRIE ST",1)  if !regexm(`address',"PRAIRIE ST")
replace `address' = subinword(`address',"PRESCOTT","PRESCOTT AVE",1)  if !regexm(`address',"PRESCOTT AVE")
replace `address' = subinword(`address',"PRINCETON","PRINCETON AVE",1)  if !regexm(`address',"PRINCETON AVE")
replace `address' = subinword(`address',"PROVINCIAL","PROVINCIAL DR",1)  if !regexm(`address',"PROVINCIAL DR")
replace `address' = subinword(`address',"RADCLIFFE","RADCLIFFE AVE",1)  if !regexm(`address',"RADCLIFFE AVE")
replace `address' = subinword(`address',"RAVENWOOD","RAVENWOOD AVE",1)  if !regexm(`address',"RAVENWOOD AVE")
replace `address' = subinword(`address',"RAYMOND","RAYMOND ST",1)  if !regexm(`address',"RAYMOND ST")
replace `address' = subinword(`address',"RED OAK","RED OAK RD",1)  if !regexm(`address',"RED OAK RD")
replace `address' = subinword(`address',"REDEEMER","REDEEMER AVE",1)  if !regexm(`address',"REDEEMER AVE")
replace `address' = subinword(`address',"RENFREW","RENFREW ST",1)  if !regexm(`address',"RENFREW ST")
replace `address' = subinword(`address',"N REVENA","N REVENA BLV",1)  if !regexm(`address',"N REVENA BLV")
replace `address' = subinword(`address',"S REVENA","S REVENA BLV",1)  if !regexm(`address',"S REVENA BLV")
replace `address' = subinword(`address',"REVENA","REVENA PL",1)  if !regexm(`address',"REVENA PL") & !regexm(`address',"REVENA BLV")
replace `address' = subinword(`address',"RIDGE","RIDGE AVE",1)  if !regexm(`address',"RIDGE AVE")
replace `address' = subinword(`address',"RIDGELINE","RIDGELINE DR",1)  if !regexm(`address',"RIDGELINE DR")
replace `address' = subinword(`address',"RIDGEWAY","RIDGEWAY ST",1)  if !regexm(`address',"RIDGEWAY ST")
replace `address' = subinword(`address',"RIVERWOOD","RIVERWOOD DR",1)  if !regexm(`address',"RIVERWOOD DR")
replace `address' = subinword(`address',"ROBIN","ROBIN RD",1)  if !regexm(`address',"ROBIN RD")
replace `address' = subinword(`address',"ROON THE BEN","ROON THE BEN DR",1)  if !regexm(`address',"ROON THE BEN DR")
replace `address' = subinword(`address',"ROSE","ROSE DR",1)  if !regexm(`address',"ROSE DR")
replace `address' = subinword(`address',"ROSEDALE","ROSEDALE ST",1)  if !regexm(`address',"ROSEDALE ST")
replace `address' = subinword(`address',"ROSEWOOD","ROSEWOOD ST",1)  if !regexm(`address',"ROSEWOOD ST")
replace `address' = subinword(`address',"ROSS","ROSS ST",1)  if !regexm(`address',"ROSS ST")
replace `address' = subinword(`address',"ROXBURY","ROXBURY RD",1)  if !regexm(`address',"ROXBURY RD")
replace `address' = subinword(`address',"RUMSEY","RUMSEY DR",1)  if !regexm(`address',"RUMSEY DR")
replace `address' = subinword(`address',"RUNNYMEDE","RUNNYMEDE BLV",1)  if !regexm(`address',"RUNNYMEDE BLV")
replace `address' = subinword(`address',"RUSSELL","RUSSELL ST",1)  if !regexm(`address',"RUSSELL ST")
replace `address' = subinword(`address',"RUSSETT","RUSSETT RD",1)  if !regexm(`address',"RUSSETT RD")
replace `address' = subinword(`address',"RYAN","RYAN RD",1)  if !regexm(`address',"RYAN RD")
replace `address' = subinword(`address',"S CIR","S CIRCLE DR",1)  if !regexm(`address',"S CIRCLE DR")
replace `address' = subinword(`address',"SALEM","SALEM ST",1)  if !regexm(`address',"SALEM ST")
replace `address' = subinword(`address',"SALISBURY","SALISBURY LN",1)  if !regexm(`address',"SALISBURY LN")
replace `address' = subinword(`address',"SANFORD","SANFORD PL",1)  if !regexm(`address',"SANFORD PL")
replace `address' = subinword(`address',"SAXON","SAXON DR",1)  if !regexm(`address',"SAXON DR")
replace `address' = subinword(`address',"SCIO CHURCH","SCIO CHURCH RD",1)  if !regexm(`address',"SCIO CHURCH RD")
replace `address' = subinword(`address',"SECOND","SECOND ST",1)  if !regexm(`address',"SECOND ST")
replace `address' = subinword(`address',"SEQUOIA","SEQUOIA PKY",1)  if !regexm(`address',"SEQUOIA PKY")
replace `address' = subinword(`address',"SEVENTH","SEVENTH ST",1)  if !regexm(`address',"SEVENTH ST")
replace `address' = subinword(`address',"SHADFORD","SHADFORD RD",1)  if !regexm(`address',"SHADFORD RD")
replace `address' = subinword(`address',"SHADY","SHADY LN",1)  if !regexm(`address',"SHADY LN")
replace `address' = subinword(`address',"SHANNONDALE","SHANNONDALE RD",1)  if !regexm(`address',"SHANNONDALE RD")
replace `address' = subinword(`address',"SHARON","SHARON DR",1)  if !regexm(`address',"SHARON DR")
replace `address' = subinword(`address',"SHEEHAN","SHEEHAN AVE",1)  if !regexm(`address',"SHEEHAN AVE")
replace `address' = subinword(`address',"SHERIDAN","SHERIDAN DR",1)  if !regexm(`address',"SHERIDAN DR")
replace `address' = subinword(`address',"SHERWOOD","SHERWOOD ST",1)  if !regexm(`address',"SHERWOOD ST")
replace `address' = subinword(`address',"SIGNATURE","SIGNATURE BLV",1)  if !regexm(`address',"SIGNATURE BLV")
replace `address' = subinword(`address',"SKYDALE","SKYDALE DR",1)  if !regexm(`address',"SKYDALE DR")
replace `address' = subinword(`address',"SKYNOB","SKYNOB CT",1)  if !regexm(`address',"SKYNOB CT")
replace `address' = subinword(`address',"SNYDER","SNYDER AVE",1)  if !regexm(`address',"SNYDER AVE")
replace `address' = subinword(`address',"SORRENTO","SORRENTO AVE",1)  if !regexm(`address',"SORRENTO AVE")
replace `address' = subinword(`address',"SOULE","SOULE BLV",1)  if !regexm(`address',"SOULE BLV")
replace `address' = subinword(`address',"SPRING","SPRING ST",1)  if !regexm(`address',"SPRING ST")
replace `address' = subinword(`address',"SPRINGBROOK","SPRINGBROOK AVE",1)  if !regexm(`address',"SPRINGBROOK AVE")
replace `address' = subinword(`address',"SPRINGWOOD","SPRINGWOOD CT",1)  if !regexm(`address',"SPRINGWOOD CT")
replace `address' = subinword(`address',"SPRUCEWAY","SPRUCEWAY LN",1)  if !regexm(`address',"SPRUCEWAY LN")
replace `address' = subinword(`address',"STADIUM","STADIUM BLV",1)  if !regexm(`address',"STADIUM BLV")
replace `address' = subinword(`address',"STARWICK","STARWICK DR",1)  if !regexm(`address',"STARWICK DR")
replace `address' = subinword(`address',"STATE","STATE ST",1)  if !regexm(`address',"STATE ST")
replace `address' = subinword(`address',"STEEPLECHASE","STEEPLECHASE DR",1)  if !regexm(`address',"STEEPLECHASE DR")
replace `address' = subinword(`address',"STELLAR","STELLAR ST",1)  if !regexm(`address',"STELLAR ST")
replace `address' = subinword(`address',"STONE SCHOOL","STONE SCHOOL RD",1)  if !regexm(`address',"STONE SCHOOL RD")
replace `address' = subinword(`address',"STONEHAVEN","STONEHAVEN ST",1)  if !regexm(`address',"STONEHAVEN ST")
replace `address' = subinword(`address',"STRATFORD","STRATFORD DR",1)  if !regexm(`address',"STRATFORD DR")
replace `address' = subinword(`address',"SUFFOLK","SUFFOLK AVE",1)  if !regexm(`address',"SUFFOLK AVE")
replace `address' = subinword(`address',"SULGRAVE","SULGRAVE PL",1)  if !regexm(`address',"SULGRAVE PL")
replace `address' = subinword(`address',"SUMARK","SUMARK WAY",1)  if !regexm(`address',"SUMARK WAY")
replace `address' = subinword(`address',"SUMMIT","SUMMIT ST",1)  if !regexm(`address',"SUMMIT ST")
replace `address' = subinword(`address',"SUNNYSIDE","SUNNYSIDE BLV",1)  if !regexm(`address',"SUNNYSIDE BLV")
replace `address' = subinword(`address',"SUNNYWOOD","SUNNYWOOD DR",1)  if !regexm(`address',"SUNNYWOOD DR")
replace `address' = subinword(`address',"SUNRISE","SUNRISE ST",1)  if !regexm(`address',"SUNRISE ST")
replace `address' = subinword(`address',"SUNSET","SUNSET RD",1)  if !regexm(`address',"SUNSET RD")
replace `address' = subinword(`address',"SYCAMORE","SYCAMORE PL",1)  if !regexm(`address',"SYCAMORE PL")
replace `address' = subinword(`address',"SYLVAN ","SYLVAN AVE",1)  if !regexm(`address',"SYLVAN AVE")
replace `address' = subinword(`address',"TAYLOR","TAYLOR ST",1)  if !regexm(`address',"TAYLOR ST")
replace `address' = subinword(`address',"TERHUNE","TERHUNE RD",1)  if !regexm(`address',"TERHUNE RD")
replace `address' = subinword(`address',"THIRD","THIRD ST",1)  if !regexm(`address',"THIRD ST")
replace `address' = subinword(`address',"TOWNER","TOWNER BLV",1)  if !regexm(`address',"TOWNER BLV")
replace `address' = subinword(`address',"TRAVER","TRAVER BLV",1)  if !regexm(`address',"TRAVER BLV")
replace `address' = subinword(`address',"TREGO","TREGO CIR",1)  if !regexm(`address',"TREGO CIR")
replace `address' = subinword(`address',"TUDOR","TUDOR DR",1)  if !regexm(`address',"TUDOR DR")
replace `address' = subinword(`address',"TUEBINGEN","TUEBINGEN PKY",1)  if !regexm(`address',"TUEBINGEN PKY")
replace `address' = subinword(`address',"TUOMY","TUOMY RD",1)  if !regexm(`address',"TUOMY RD")
replace `address' = subinword(`address',"TURNBERRY","TURNBERRY LN",1)  if !regexm(`address',"TURNBERRY LN")
replace `address' = subinword(`address',"UNIVERSITY","UNIVERSITY AVE",1)  if !regexm(`address',"UNIVERSITY AVE")
replace `address' = subinword(`address',"UPLAND","UPLAND DR",1)  if !regexm(`address',"UPLAND DR")
replace `address' = subinword(`address',"VAN DUSEN","VAN DUSEN DR",1)  if !regexm(`address',"VAN DUSEN DR")
replace `address' = subinword(`address',"VERLE","VERLE AVE",1)  if !regexm(`address',"VERLE AVE")
replace `address' = subinword(`address',"VESPER","VESPER RD",1)  if !regexm(`address',"VESPER RD")
replace `address' = subinword(`address',"VILLAGE CIR","VILLAGE CIR",1)  if !regexm(`address',"VILLAGE CIR")
replace `address' = subinword(`address',"VINEWOOD","VINEWOOD BLV",1)  if !regexm(`address',"VINEWOOD BLV")
replace `address' = subinword(`address',"VINTAGE VALLEY","VINTAGE VALLEY RD",1)  if !regexm(`address',"VINTAGE VALLEY RD")
replace `address' = subinword(`address',"VIRGINIA","VIRGINIA AVE",1)  if !regexm(`address',"VIRGINIA AVE")
replace `address' = subinword(`address',"VIRNANKAY","VIRNANKAY CIR",1)  if !regexm(`address',"VIRNANKAY CIR")
replace `address' = subinword(`address',"WAGNER","WAGNER RD",1)  if !regexm(`address',"WAGNER RD")
replace `address' = subinword(`address',"WALDENWOOD","WALDENWOOD DR",1)  if !regexm(`address',"WALDENWOOD DR")
replace `address' = subinword(`address',"WALL","WALL ST",1)  if !regexm(`address',"WALL ST")
replace `address' = subinword(`address',"WALLINGFORD","WALLINGFORD RD",1)  if !regexm(`address',"WALLINGFORD RD")
replace `address' = subinword(`address',"WALTER","WALTER DR",1)  if !regexm(`address',"WALTER DR")
replace `address' = subinword(`address',"WALTHAM","WALTHAM DR",1)  if !regexm(`address',"WALTHAM DR")
replace `address' = subinword(`address',"WASHTENAW","WASHTENAW AVE",1)  if !regexm(`address',"WASHTENAW AVE")
replace `address' = subinword(`address',"WATERSHED","WATERSHED CT",1)  if !regexm(`address',"WATERSHED CT")
replace `address' = subinword(`address',"WAVERLY","WAVERLY RD",1)  if !regexm(`address',"WAVERLY RD")
replace `address' = subinword(`address',"WEEBURN","WEEBURN CT",1)  if !regexm(`address',"WEEBURN CT")
replace `address' = subinword(`address',"WELDON","WELDON BLV",1)  if !regexm(`address',"WELDON BLV")
replace `address' = subinword(`address',"WELLS","WELLS ST",1)  if !regexm(`address',"WELLS ST")
replace `address' = subinword(`address',"WEMBLEY","WEMBLEY CT",1)  if !regexm(`address',"WEMBLEY CT")
replace `address' = subinword(`address',"WESLEY","WESLEY ST",1)  if !regexm(`address',"WESLEY ST")
replace `address' = subinword(`address',"WESTAIRE","WESTAIRE WAY",1)  if !regexm(`address',"WESTAIRE WAY")
replace `address' = subinword(`address',"WESTFIELD","WESTFIELD AVE",1)  if !regexm(`address',"WESTFIELD AVE")
replace `address' = subinword(`address',"WESTOVER","WESTOVER AVE",1)  if !regexm(`address',"WESTOVER AVE")
replace `address' = subinword(`address',"WESTPORT","WESTPORT RD",1)  if !regexm(`address',"WESTPORT RD")
replace `address' = subinword(`address',"WESTWOOD","WESTWOOD AVE",1)  if !regexm(`address',"WESTWOOD AVE")
replace `address' = subinword(`address',"WHITE","WHITE ST",1)  if !regexm(`address',"WHITE ST") & !regexm(`address',"WHITE OAK")
replace `address' = subinword(`address',"WHITE OAK","WHITE OAK DR",1)  if !regexm(`address',"WHITE OAK DR")
replace `address' = subinword(`address',"WHITEWOOD","WHITEWOOD ST",1)  if !regexm(`address',"WHITEWOOD ST")
replace `address' = subinword(`address',"WHITTIER","WHITTIER CT",1)  if !regexm(`address',"WHITTIER CT")
replace `address' = subinword(`address',"WICKFIELD","WICKFIELD CT",1)  if !regexm(`address',"WICKFIELD CT")
replace `address' = subinword(`address',"WILDT","WILDT ST",1)  if !regexm(`address',"WILDT ST")
replace `address' = subinword(`address',"WILDWOOD","WILDWOOD AVE",1)  if !regexm(`address',"WILDWOOD AVE")
replace `address' = subinword(`address',"WILLIAM","WILLIAM ST",1)  if !regexm(`address',"WILLIAM ST")
replace `address' = subinword(`address',"WILTON","WILTON ST",1)  if !regexm(`address',"WILTON ST")
replace `address' = subinword(`address',"WINCHELL","WINCHELL DR",1)  if !regexm(`address',"WINCHELL DR")
replace `address' = subinword(`address',"WINDEMERE","WINDEMERE DR",1)  if !regexm(`address',"WINDEMERE DR")
replace `address' = subinword(`address',"WINES","WINES DR",1)  if !regexm(`address',"WINES DR")
replace `address' = subinword(`address',"WINEWOOD","WINEWOOD AVE",1)  if !regexm(`address',"WINEWOOD AVE")
replace `address' = subinword(`address',"WINSTED","WINSTED BLV",1)  if !regexm(`address',"WINSTED BLV")
replace `address' = subinword(`address',"WOLVERINE","WOLVERINE DR",1)  if !regexm(`address',"WOLVERINE DR")
replace `address' = subinword(`address',"WOODBRIDGE","WOODBRIDGE BLV",1)  if !regexm(`address',"WOODBRIDGE BLV")
replace `address' = subinword(`address',"WOODCREEK","WOODCREEK BLV",1)  if !regexm(`address',"WOODCREEK BLV")
replace `address' = subinword(`address',"WOODLAND","WOODLAND DR",1)  if !regexm(`address',"WOODLAND DR")
replace `address' = subinword(`address',"WOODLAWN","WOODLAWN AVE",1)  if !regexm(`address',"WOODLAWN AVE")
replace `address' = subinword(`address',"WOODSIDE","WOODSIDE RD",1)  if !regexm(`address',"WOODSIDE RD")
replace `address' = subinword(`address',"WORDEN","WORDEN AVE",1)  if !regexm(`address',"WORDEN AVE")
replace `address' = subinword(`address',"WRIGHT","WRIGHT ST",1)  if !regexm(`address',"WRIGHT ST")
replace `address' = subinword(`address',"WYNNSTONE","WYNNSTONE DR",1)  if !regexm(`address',"WYNNSTONE DR")
replace `address' = subinword(`address',"YELLOWSTONE","YELLOWSTONE DR",1)  if !regexm(`address',"YELLOWSTONE DR")
replace `address' = subinword(`address',"YORKSHIRE","YORKSHIRE RD",1)  if !regexm(`address',"YORKSHIRE RD")
replace `address' = subinword(`address',"YORKTOWN","YORKTOWN DR",1)  if !regexm(`address',"YORKTOWN DR")
replace `address' = subinword(`address',"YOST","YOST BLV",1)  if !regexm(`address',"YOST BLV")
}

gen mls_address = upper(trim(itrim(string(str)+" "+mls_addressstreet)))

outsheet using AA_MLS_standard_addresses.txt, replace names noquote 

log close


/**/
